10 SYS2224
20 DV=PEEK(2230):IFPEEK(6)<255THENPRINT"[147]":END
30 OPEN2,DV,0,"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN50
40 LOAD"PROG MENU",DV
50 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
60 LOAD"NOVATERM ?.?*",DV